home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Memo Stuff / Visual Outliner / background_2602.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  3.3 KB  |  162 lines
  1. -- background: 2602 from stack: in
  2. -- bmap block id: 3272
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: StackMaker
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=260 top=307 right=329 bottom=360
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: OK
  20. ----- HyperTalk script -----
  21.  
  22. on mouseUp
  23.   global totalDays,project,start,ending
  24.  
  25.   put field "Project Name" into project
  26.   put field "Start Date" into start
  27.   put field "End Date" into ending
  28.  
  29.   if project is empty or start is empty or ending is empty then
  30.     answer "All three fields must be filled out." with "OK"
  31.     exit mouseUp
  32.   end if
  33.  
  34.   convert start to seconds
  35.   convert ending to seconds
  36.   put 1 + (ending - start) div (24*60*60) into totalDays
  37.   if totalDays < 1 then
  38.     answer "How can you end before you start?" with "Just Kidding?"
  39.     convert start to short date
  40.     exit mouseUp
  41.   end if
  42.  
  43.   go to card "Overview Template"
  44.   set lockScreen to true
  45.   go to card "Detail Template"
  46.   domenu "Copy Card"
  47.   go to card "Overview Template"
  48.   set lockScreen to false
  49.   domenu "New Stack..."
  50.  
  51. end mouseUp
  52.  
  53.  
  54.  
  55.  
  56.  
  57. -- part 2 (button)
  58. -- low flags: 00
  59. -- high flags: A003
  60. -- rect: left=387 top=308 right=330 bottom=487
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Cancel
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   go to card "none open" of stack Home
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 3 (field)
  77. -- low flags: 00
  78. -- high flags: 4000
  79. -- rect: left=190 top=65 right=85 bottom=474
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 20
  84. -- text size: 14
  85. -- style flags: 256
  86. -- line height: 18
  87. -- part name: Project Name
  88.  
  89.  
  90. -- part 4 (field)
  91. -- low flags: 00
  92. -- high flags: 4000
  93. -- rect: left=135 top=113 right=135 bottom=332
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 20
  98. -- text size: 14
  99. -- style flags: 256
  100. -- line height: 18
  101. -- part name: Start Date
  102.  
  103.  
  104. -- part 5 (field)
  105. -- low flags: 00
  106. -- high flags: 4000
  107. -- rect: left=118 top=160 right=181 bottom=341
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 20
  112. -- text size: 14
  113. -- style flags: 256
  114. -- line height: 18
  115. -- part name: End Date
  116.  
  117.  
  118. -- part 6 (button)
  119. -- low flags: 00
  120. -- high flags: 8003
  121. -- rect: left=7 top=279 right=301 bottom=121
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: New Project
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   answer "Do you want to start a new project, Dennis?" with "You Betcha" or "No"
  133.   if it is "No" then exit mouseup
  134.   else
  135.     domenu New Card
  136.   end if
  137. end mouseUp
  138.  
  139.  
  140.  
  141.  
  142. -- part 7 (button)
  143. -- low flags: 00
  144. -- high flags: 8003
  145. -- rect: left=7 top=306 right=328 bottom=121
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Existing Project
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   ask "Enter Project Name"
  157.   find it
  158.   go it
  159. end mouseUp
  160.  
  161.  
  162.